home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / userbox / publicdomain / madhouse.lha / Madhouse / Install&Remove / Install next >
Text File  |  1996-05-24  |  14KB  |  539 lines
  1. ; Installation script for Madhouse V2
  2. ; Revision 2 - multilingual, docs in lha archive, size-checks.
  3. ; Revision 3 - changed for Madhouse 1.2
  4. ; Revision 4 - changed for Madhouse 2
  5. ; Revision 5 - changed for Madhouse 2.1
  6.  
  7. (complete 0)
  8.  
  9. (set mainprgsource "/Madhouse")
  10. (set mainprgdest "SYS:WBStartup")
  11.  
  12. ; File-sizes for space check. Including icons.
  13. (set size-mainprg 39000 )
  14. (set size-locale 14000 )
  15. (set size-configed 116000 )
  16. (set size-blankers 290000 )
  17. (set size-germandoc 155000 )
  18. (set size-englishdoc 98000 )
  19. (set size-importhelp 70000 )
  20.  
  21. (if (= @language "Deutsch") (
  22.     (set @def-anleit 0)
  23.     (set size-defaultdoc size-germandoc)
  24.     
  25.    (set #wrong-os
  26.     (cat "\nTut uns leid, Madhouse benötigt OS v2.04 oder höher!!\n"))
  27.     
  28.     (set #diskfull
  29.     (cat "Das Installationsscript muß leider abbrechen, weil auf der "
  30.          "Festplattenpartition \"%s\" nicht genug Platz "
  31.           "vorhanden ist." ))
  32.     
  33.     (set #copying-mainprg
  34.     (cat "\nJetzt wird das Programm Madhouse in Ihre "
  35.                 "SYS:WBStartup-Schublade kopiert. Dort wird es dann nach "
  36.                     "jedem Reset gestartet.\n"
  37.                     "Dieses Programm verwaltet die "
  38.                     "Blanker, das Einstellungsprogramm muß ebenfalls damit "
  39.                     "aufgerufen werden."))
  40.     
  41.     (set #select-defdir
  42.     (cat "Bitte wählen Sie jetzt die Schublade, in der der "
  43.                 "Anleitungstext, der MadhouseConfigEd und die Blanker installiert werden sollen.\n"
  44.                     "In diesem Verzeichnis sollten mindestens 630 KB frei sein!\n" ))
  45.     
  46.     (set #select-dir-prompt
  47.     (cat
  48.                 "Wählen Sie das Verzeichnis, in dem Madhouse installiert "
  49.                     "werden soll. Vergessen Sie nicht, ein neues Unterverzeichnis "
  50.                     "anzulegen, falls Sie eines wünschen!" ))
  51.     
  52.     (set #select-dir-help
  53.     (cat
  54.                 "Wie vorhin gesagt wurde, sollten Sie hier das Zielverzeichnis "
  55.                     "für Madhouse auswählen, in das die Anleitungen, der MadhouseConfigEd und "
  56.                     "die Blanker geschrieben werden.\nUm ein neues Verzeichnis anzulegen, "
  57.                     "benutzen Sie \"Make new drawer...\" und geben Sie den Namen in das Textfeld "
  58.                     "ein."))
  59.     
  60.     (set #no-min-space
  61.     (cat "Leider reicht der Platz auf der ausgewählten Festplatte "
  62.          "nicht mal für die nötigsten Dateien. Bitte wählen Sie einen anderen "
  63.           "Pfad (\"Proceed\") oder brechen Sie die Installation ab "
  64.           "(\"Abort Install\")." ))
  65.     (set #no-doc-space
  66.     (cat "Der Platz auf der ausgewählten Diskette / Festplatte reicht zwar für "
  67.          "die nötigsten Dateien, aber die deutsche Anleitung paßt schon nicht "
  68.           "mehr. Wollen Sie einen neuen Pfad wählen?" ))
  69.     (set #yes
  70.     (cat "Ja." ))
  71.     (set #no
  72.     (cat "Nein." ))
  73.     
  74.     (set #doing-docs
  75.     (cat "Die deutsche Anleitung wird kopiert." ))
  76.     
  77.     (set #doing-configed
  78.     (cat "\nJetzt wird der MadhouseConfigEd kopiert." ))
  79.     
  80.     (set #blank 
  81.     (cat"\nJetzt werden die Blanker kopiert." ))
  82.                 
  83.     (set #icontext
  84.     (cat "Für das Madhouse-Programm in WBStartup/ stehen sieben Icons zur Auswahl (Zur "
  85.          "Entscheidungshilfe zuerst in Icons/ ansehen, dann fortfahren.)\n"
  86.           "MWB=Die MagicWB-Farben müssen installiert sein."))
  87.     (set #iconchoices-1
  88.     (cat "Standard-Icon (Hauptfenster)" ))
  89.     (set #iconchoices-2
  90.     (cat "Schwarzer Keil (MWB)" ))
  91.     (set #iconchoices-3
  92.     (cat "Monitor" ))
  93.     (set #iconchoices-4
  94.     (cat "Monitor (MWB)" ))
  95.     (set #iconchoices-5
  96.     (cat "Schwarzer Monitor" ))
  97.     (set #iconchoices-6
  98.     (cat "Schwarzer Monitor (MWB)" ))
  99.     (set #iconchoices-7
  100.     (cat "Madhouse-Schriftzug" ))
  101.     
  102.     (set #diskfull-locale
  103.     (cat "Dies ist zwar ein Amiga mit OS 2.1 oder höher, die deutschsprachigen "
  104.          "Locale-Dateien können jedoch trotzdem nicht installiert werden, weil "
  105.           "auf der zuständigen Festplattenpartition nicht mehr "
  106.           "genügend Platz ist." ))
  107.     (set #locale-update
  108.     (cat "Die Locale-Dateien sind bereits vorhanden und werden gleich erneuert. "
  109.          "Es ist jedoch möglich, daß das Betriebssystem diese Daten noch im Speicher "
  110.           "hält, und Madhouse beim Start die alten Daten aus dem Speicher bekommt. "
  111.           "Sie umgehen diese Situation durch a) einen Reset nach der Installation oder "
  112.           "b) durch Beenden von Madhouse und Eingeben von \"avail flush\" in einer Shell, "
  113.           "dann können Sie das neue Madhouse starten." ))
  114.     
  115.     (set #use-locale
  116.     (cat "TOLL! Dies ist ein Amiga mit OS 2.1 oder höher! Wenn Sie also wollen, können "
  117.                 "die Programtexte von Madhouse auf deutsch erscheinen.\n"
  118.                     "Sollen die deutschen Locale-Texte installiert werden?"))
  119.     (set #locale-1
  120.     (cat "Ja" ))
  121.     (set #locale-2
  122.     (cat "Diesen Teil überspringen" ))
  123.     
  124.     ; canceled.
  125.     (set #graphicext
  126.     (cat "Vom Blanker Stars sind zwei Versionen verfügbar. Eine, die garantiert funktioniert, "
  127.          "und eine, die mit Grafikkarten (nicht dem AGA-Chipset, das läuft!) Probleme machen "
  128.           "wird. Wurde eine besondere Grafikkarte installiert?"))
  129.     (set #graphicext-1
  130.     (cat "Ja / Ich weiß nicht."))
  131.     (set #graphicext-2
  132.     (cat "Nein."))
  133.     (set #graphicexthelp
  134.     (cat "Wer sich hier nicht schlüssig ist, kann es vorerst auch mit \"Nein\" versuchen. "
  135.          "Der Bildschirmaufbau von Stars kommt dann wahrscheinlich durcheinander, wenn eine "
  136.           "Grafikkarte im Rechner ist.\nDas AGA-Chipset ist im A1200 und A4000 eingebaut und "
  137.           "macht keine Probleme." ))
  138.     
  139.     ; canceled.
  140.     (set #delprefs
  141.     (cat "Alte Einstellungsdateien \"ENV:\" und \"ENVARC:Madhouse.prefs\" müssen gelöscht werden!!"))
  142.     
  143.     (set #extro
  144.     (cat "Madhouse wurde korrekt installiert. Beim Systemstart wird das Hauptprogramm "
  145.               "von nun an automatisch aktiviert, solange Sie nicht das Programm SYS:WBStartup/Madhouse "
  146.                   "löschen. Dort können Sie es jetzt auch direkt aufrufen, um einen Reset zu "
  147.                   "umgehen.\n\n"
  148.                   "Viel Spaß!" ))
  149. ))
  150.  
  151.  
  152. (if (= @language "English") (
  153.     (set @def-anleit 1)
  154.     (set size-defaultdoc size-englishdoc)
  155.  
  156.    (set #wrong-os
  157.     (cat "\nSorry, Madhouse needs OS 2.04 or higher!\n"))
  158.         
  159.     (set #diskfull
  160.     (cat "The script has to abort, because the partition \"%s\" does "
  161.          "not have enough free disk space." ))
  162.     
  163.     (set #copying-mainprg
  164.     (cat "\nNow, the programm Madhouse will be copied into your SYS:WBStartup-drawer. "
  165.          "There it will be started after every reset. This program handles the "
  166.           "blankers, and you have to run the prefs-editor \"MadhouseConfigEd\" from it."))
  167.     
  168.     (set #select-defdir
  169.     (cat "Please select the drawer, in which you want to copy the doc, MadhouseConfigEd "
  170.          "and the blankers in the following requester.\nYou will need 575 KB of "
  171.           "disk space."))
  172.     
  173.     (set #select-dir-prompt
  174.     (cat "Select the drawer in which you want to install Madhouse. If you prefer an own "
  175.          "subdirectory for Madhouse, please create one!" ))
  176.     
  177.     (set #select-dir-help
  178.     (cat "The script will copy MadhouseConfigEd, the docs and the blankers into the "
  179.          "drawer you have to select here. Create a new directory by using "
  180.           "\"Make New Drawer...\" and entering the name of it into the string gadget." ))
  181.     
  182.     (set #doing-docs
  183.     (cat "Copying english documentation." ))
  184.     
  185.     (set #doing-configed
  186.     (cat "\nNow, MadhouseConfigEd will be copied." ))
  187.     
  188.     (set #blank 
  189.     (cat"\nNow, the blankers will be copied." ))
  190.                 
  191.     (set #icontext
  192.     (cat "You have got the choice out of seven icons for the Madhouse-program (in "
  193.          "SYS:WBStartup). To make a decision, you can look at the icons right now "
  194.           "(\"Icons\"-drawer) first. MWB = you "
  195.           "need the MagicWB-colors on your Workbench."))
  196.     (set #iconchoices-1
  197.     (cat "Standard-Icon (from Madhouse-dir)" ))
  198.     (set #iconchoices-2
  199.     (cat "Colored points & black area (MWB)" ))
  200.     (set #iconchoices-3
  201.     (cat "Monitor" ))
  202.     (set #iconchoices-4
  203.     (cat "Monitor (MWB)" ))
  204.     (set #iconchoices-5
  205.     (cat "Black Monitor" ))
  206.     (set #iconchoices-6
  207.     (cat "Black Monitor (MWB)" ))
  208.     (set #iconchoices-7
  209.     (cat "Madhouse-Text" ))
  210.     
  211.     ; Obsolete, english strings are built-in.
  212.     (set #use-locale
  213.     (cat "" ))
  214.     (set #locale-1
  215.     (cat "" ))
  216.     (set #locale-2
  217.     (cat "" ))
  218.     
  219.     ; canceled.
  220.     (set #graphicext
  221.     (cat "The Blanker Stars is available in two versions, one that works in every case and one "
  222.          "that would make troubles with graphic extensions. The AGA-Chipset works with both. "
  223.           "Do you have installed a graphic extension?"))
  224.     (set #graphicext-1
  225.     (cat "Yes / I don't know."))
  226.     (set #graphicext-2
  227.     (cat "No"))
  228.     (set #graphicexthelp
  229.     (cat "If you don't know the answer, you should perhaps even try \"Yes\", because you would "
  230.          "know if you've had added something to your Amiga...\nThe AGA-Chipset is in every A1200 "
  231.           "and A4000 and makes no troubles."))
  232.     
  233.     ; canceled.
  234.     (set #delprefs
  235.     (cat "Old preference files \"ENV:\" and \"ENVARC:Madhouse.prefs\" have to be deleted!!"))
  236.     
  237.     (set #extro
  238.     (cat "Madhouse was installed correctly. While booting, the main program \"Madhouse\" "
  239.          "will be started automatically, as long as you don't delete it (it is in "
  240.           "SYS:WBStartup). You can start it directly, if you don't want to reset your "
  241.           "machine.\nEspecially if you do not own a hard disk, you should read the "
  242.           "doc, otherwise you should it do anyway, of course...\n\nEnjoy!"))
  243. ))
  244.  
  245.  
  246.  
  247. ;  **** Auf OS 2.04 checken.
  248.  
  249. (if (< (/ (getversion) 65536) 37)
  250.     (
  251.         (message #wrong-os)
  252.         (exit (quiet))
  253.     )
  254. )
  255. (complete 1)
  256.  
  257.  
  258.  
  259. ;  **** Erster size-check
  260.  
  261. (set wb-space (getdiskspace "SYS:" ))
  262.  
  263. (if (< wb-space size-mainprg) (
  264.     (abort (#diskfull (expandpath "SYS:")) )
  265. ))
  266.  
  267. (complete 2)
  268.  
  269.  
  270.  
  271. ;  **** Main-Program in SYS:WBStartup/
  272.  
  273. (complete 0)
  274.  
  275. (message #copying-mainprg )
  276.  
  277. (copyfiles
  278.   (source mainprgsource)
  279.   (dest mainprgdest)
  280. )
  281. (complete 10)
  282.  
  283.  
  284.  
  285. ;  **** Icon for Main-Program
  286.  
  287. (run ("delete SYS:WBStartup/Madhouse.info"))
  288. (set icontype (askchoice
  289.         (prompt #icontext )
  290.         (help    ""    )
  291.         (choices #iconchoices-1 #iconchoices-2 #iconchoices-3 #iconchoices-4 #iconchoices-5 #iconchoices-6 #iconchoices-7 )
  292.         (default 5)
  293.     )
  294. )
  295. (set @icondest "BlaBla!")
  296. (if (= icontype 0) (
  297.     (set @iconsource "/Madhouse.info")
  298.     (set @icondest "SYS:WBStartup/Madhouse.info")
  299. ))
  300. (if (= icontype 1) (
  301.     (set @iconsource "/Icons/Madhouse_MWB1.info")
  302.     (set @icondest "SYS:WBStartup/Madhouse_MWB1.info")
  303. ))
  304. (if (= icontype 2) (
  305.     (set @iconsource "/Icons/Madhouse2.info")
  306.     (set @icondest "SYS:WBStartup/Madhouse2.info")
  307. ))
  308. (if (= icontype 3) (
  309.     (set @iconsource "/Icons/Madhouse_MWB2.info")
  310.     (set @icondest "SYS:WBStartup/Madhouse_MWB2.info")
  311. ))
  312. (if (= icontype 4) (
  313.     (set @iconsource "/Icons/Madhouse3.info")
  314.     (set @icondest "SYS:WBStartup/Madhouse3.info")
  315. ))
  316. (if (= icontype 5) (
  317.     (set @iconsource "/Icons/Madhouse_MWB3.info")
  318.     (set @icondest "SYS:WBStartup/Madhouse_MWB3.info")
  319. ))
  320. (if (= icontype 6) (
  321.     (set @iconsource "/Icons/Madhouse4.info")
  322.     (set @icondest "SYS:WBStartup/Madhouse4.info")
  323. ))
  324. (copyfiles
  325.     (source @iconsource)
  326.     (dest "SYS:WBStartup")
  327. )
  328. (run ("rename %s SYS:WBStartup/Madhouse.info" @icondest ))
  329. (complete 17)
  330.  
  331.  
  332.  
  333. ;  **** Locale
  334.  
  335. (if (> (/ (getversion) 65536) 37)
  336.     (
  337.         (if (<> @language "English" ) (
  338.  
  339.             (set loc-space (getdiskspace "LOCALE:" ))
  340.             (if (< loc-space size-locale) (
  341.                     (message ( #diskfull-locale ))
  342.                 )(
  343.                     (if (askbool (prompt #use-locale)
  344.                                  (help "")
  345.                                  (choices #locale-1 #locale-2 ))
  346.                     (
  347.                         (if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (
  348.                            (message (#locale-update))
  349.                         ))
  350.                         (copyfiles
  351.                            (source "/locale/deutsch/madhouse.catalog")
  352.                            (dest "LOCALE:Catalogs/deutsch")
  353.                         )    
  354.                         (copyfiles
  355.                            (source "/locale/deutsch/madhousebg.catalog")
  356.                            (dest "LOCALE:Catalogs/deutsch")
  357.                         )
  358.                     ))
  359.             ))
  360.         ))
  361.     )
  362. )
  363. (complete 27)
  364.  
  365.  
  366.  
  367. ;  **** Set directory for docs, blankers etc...
  368.  
  369. (set min-space (+ size-configed size-blankers))
  370. (set doc-space (+ min-space size-defaultdoc))
  371.  
  372. (message #select-defdir )
  373.  
  374. (set loopagain 1)
  375.  
  376. (while loopagain (
  377.     (set @default-dest
  378.       (askdir
  379.         (prompt #select-dir-prompt )
  380.         (help #select-dir-help )
  381.          (default ":")
  382.       )
  383.     )
  384.     
  385.     (set avail-space (getdiskspace @default-dest))
  386.  
  387.     (if (< avail-space min-space) (
  388.         ; Viel zu wenig Platz für's nötigste
  389.         (message #no-min-space)
  390.     )(
  391.         (if (< avail-space doc-space) (
  392.             ; Blanker passen, sonst nichts.
  393.             (if (askbool (prompt #no-doc-space)
  394.              (help "")
  395.              (choices #yes #no ))
  396.             (
  397.                 (set loopagain 1)
  398.             )(
  399.                 (set loopagain 0)
  400.             ))
  401.         )(
  402.             ; Alles paßt.
  403.             (set loopagain 0)
  404.         ))
  405.     ))
  406. ))
  407.  
  408. (complete 35)
  409.  
  410.  
  411.  
  412. ;  **** Doc-Files
  413.  
  414. (working #doing-docs)
  415.  
  416. (if (> avail-space doc-space) (
  417.     (if (= @def-anleit 1) ( 
  418.         (copyfiles
  419.             (source "/Docs/Doc.guide" )
  420.            (dest @default-dest)
  421.             (infos)
  422.         )
  423.         (copyfiles
  424.             (source "/Docs/Registration_E.txt" )
  425.            (dest @default-dest)
  426.             (infos)
  427.         )
  428.     )(
  429.         (copyfiles
  430.             (source "/Docs/Anleitung.guide" )
  431.            (dest @default-dest)
  432.             (infos)
  433.         )
  434.         (copyfiles
  435.             (source "/Docs/Registration_D.txt" )
  436.            (dest @default-dest)
  437.             (infos)
  438.         )
  439.     ))
  440. ))
  441.  
  442. (complete 45)
  443.  
  444.  
  445.  
  446. ;  **** MadhouseConfigEd
  447.  
  448. (message #doing-configed)
  449. (copyfiles
  450.    (source "/MadhouseConfigEd")
  451.    (dest @default-dest)
  452. )
  453. (complete 55)
  454.  
  455.  
  456.  
  457. ;  **** Blankers
  458.  
  459. ;canceled
  460. ;(set gestars 0)
  461. ;(if (askbool (prompt #graphicext)
  462. ;             (help #graphicexthelp)
  463. ;             (choices #graphicext-1 #graphicext-2 ))
  464. ;(
  465. ;   (set gestars 1)
  466. ;))
  467.  
  468. (message #blank )
  469.  
  470. (set bl-dest ( tackon @default-dest "Blankers" ) )
  471.  
  472. (makedir bl-dest )
  473.  
  474. (copyfiles
  475.     (source "/blankers" )
  476.     (dest bl-dest )
  477.     (help "" )
  478.     (all)
  479.     (infos)
  480. )
  481.  
  482. ;(if (= gestars 1) (
  483. ;    (copyfiles
  484. ;        (source "/blankers/Stars/blanker_safe" )
  485. ;        (dest (cat bl-dest "/Stars") )
  486. ;        (newname "blanker")
  487. ;        (help "" )
  488. ;        (infos)
  489. ;    )
  490. ;    (delete (cat bl-dest "/Stars/blanker_safe"))
  491. ;))
  492.  
  493. (copyfiles
  494.     (source "/blankers.info" )
  495.     (dest @default-dest )
  496.     (help "" )
  497. )
  498.  
  499. (complete 80)
  500.  
  501.  
  502.  
  503. ;  **** ImportHelp
  504.  
  505. (set imphelp-dest ( tackon @default-dest "ImportHelp" ) )
  506.  
  507. (makedir imphelp-dest )
  508.  
  509. (copyfiles
  510.     (source "/ImportHelp")
  511.     (dest imphelp-dest)
  512.     (help "" )
  513.     (all)
  514.     (infos)
  515. )
  516.  
  517. (complete 90)
  518.  
  519.  
  520.  
  521. ;  **** Set ToolType for SYS:WBStartup/Madhouse
  522.  
  523. (tooltype  (dest "SYS:WBStartup/Madhouse")
  524.            (settooltype "CONFIGED" (tackon @default-dest "MadhouseConfigEd"))
  525. )
  526. (complete 95)
  527.  
  528.  
  529.  
  530. ;  **** Extro
  531.  
  532. (message #extro)
  533.  
  534.  
  535.  
  536. ;   **** Finished!
  537.  
  538.  
  539.